home *** CD-ROM | disk | FTP | other *** search
/ Holt Researcher: American History / Holt Researcher: American History.iso / pc / modules / grphwiz.dxr / 00155_row header subtable.ls < prev    next >
Encoding:
Text File  |  2000-01-14  |  608 b   |  18 lines
  1. property ancestor
  2.  
  3. on new me, tableName, castName, tableChannel, tableLoc, vSlider, upButton, downButton, descendant
  4.   if objectp(descendant) then
  5.     ancestor = new(script("subtable object"), tableName, castName, tableChannel, tableLoc, vSlider, upButton, downButton, descendant)
  6.   else
  7.     ancestor = new(script("subtable object"), tableName, castName, tableChannel, tableLoc, vSlider, upButton, downButton, me)
  8.   end if
  9.   return me
  10. end
  11.  
  12. on trackMouse me
  13.   startCell = cellToPoint(me._me, sprite(me.pTableChannel).mouseCell)
  14.   setAt(startCell, 1, 0)
  15.   trackMouse(me.pSuperTable, startCell)
  16.   return me
  17. end
  18.